home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
notes.dir
/
00003_Script_3
< prev
next >
Wrap
Text File
|
1995-11-09
|
516b
|
19 lines
on mouseUp
-- Define Window boundaries
set theTop = the stageTop
set theLeft = the stageLeft + 316
set theBottom = theTop + 368
set theRight = theLeft + 256
set the rect of window "Pages.dir" = ¼
rect (theLeft, theTop, theRight, theBottom )
set the title of window "Pages.dir" to "Subject Text"
set the windowType of window "Pages.dir" to 4
open window "Pages.dir"
--set the modal of window "Pages.dir" to TRUE
tell window "Pages.dir"
showPagesText
end tell
end